home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 November / 64er_Magazin_91-11_1991_Markt__Technik_de_Side_A.d64 / font convert (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  808b  |  19 lines
  1. 1 dim a(15):s=12288:poke53272,23
  2. 2 print"[147][154] - [198]ont [195]onvert -        by [205]arc [212]eufel ":poke53280,0:poke53281,0
  3. 3 poke19,1:input"load name  ";a$:print:input"save name  ";b$:poke19,0:print
  4. 4 print"loading font ...":sys57821a$,8,1:poke780,0:sys65493:poke53272,28
  5. 5 print"[147][150]":fori=0to255:poke1024+i,i:next:print"b[194]y[217] m[205]a[193]r[210]c[195] t[212]."
  6. 6 print"a[193]b[194]c[195]d[196]e[197]f[198]g[199]h[200]i[201]j[202]k[203]l[204]m[205]n[206]o[207]p[208]q[209]r[210]s[211]t[212]u[213]v[214]w[215]x[216]y[217]z[218]"
  7. 7 print"0[176]1[177]2[178]3[184]4[180]5[181]6[182]7[183]8[185]9[185]":gosub12
  8. 8 print"[147][154] - [201]nsert [196]isk - ":poke53272,23:gosub 17
  9. 9 print"saving font ...":open 1,8,2,b$+",p,w":zz=int(12288/256)
  10. 10 xx=12288-256*zz:print#1,chr$(xx);chr$(zz):fori=12288to14336
  11. 11 print#1,chr$(peek(i));:nexti:close1:gosub15:goto2
  12. 12 a=512:fori=stos+a:b=peek(i):c=a+i:d=int(b/16):e=b-d*16:f=0:g=0:forj=0to3
  13. 13 h=int(d/2):k=d-h*2:d=h:h=int(e/2):l=e-h*2:e=h:f=f+3*k*2^(j*2):g=g+3*l*2^(j*2)
  14. 14 next:pokei,f:pokec,g:next:return
  15. 15 open 1,8,15:input#1,aa,bb$,cc,dd
  16. 16 print""aa;bb$;cc;dd:close1
  17. 17 getr$:ifr$=""then17
  18. 18 return
  19.